home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 05.p (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  300b  |  15 lines
  1. 51100 rem be$(1)-be$(n) codieren
  2. 51110 wz=0     :rem wortzaehler auf 0
  3. 51120 ve=0:ob=0:rem alte erg. loeschen
  4. 51130 rem wort be$(wz) im wortschatz suchen
  5. 51140 :
  6. 51150 :
  7. 51160 :
  8. 51170 :
  9. 51180 :
  10. 51190 :
  11. 51200 wz=wz+1
  12. 51220 ifbe$(wz)=""then52000
  13. 51230 goto51130
  14. 52000 rem reaktion auf befehl --------------------------------------------------
  15.